home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 22
/
Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso
/
Aminet
/
biz
/
dopus
/
DOpus56Magyar.lha
/
DOpus565_magyar
/
Install_Magellan_magyar
next >
Wrap
Text File
|
1997-10-02
|
3KB
|
109 lines
; $VER: OpusMagellan magyar telepítõ 1.0 (02/10/97)
;
; Script to install the Hungarian translation of Opus 5 Magellan.
;
; Original script written by Magnus Holmgren <cmh@lls.se>.
;
; Modified for Hungarian by Miklós Árpád <alan@elender.hu>.
;=============================================================================
; Check if Directory Opus 5 is already installed
(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
(abort "Elõször telepítenie kell a Directory Opus 5-öt.")
)
(set @default-dest "")
;=============================================================================
; Install catalogs
(message "\n\nDirectory Opus 5 - Magyar fordítás és kiegészítõk\n\n"
"Készítették:\n"
"Horváth Péter <pcpince@syneco.hu>\n"
"Miklós Árpád <alan@elender.hu>\n\n"
"A következõ elemeket telepítem: magyar katalógus a programhoz és minden\n"
"moduljához, magyar listaablak-menü és felhasználói menü, valamint\n"
"néhány egyéb, a példa kedvéért készített gombcsoport és menü."
)
(copyfiles
(source "")
(dest "DOpus5:")
(pattern "Catalogs")
)
(if (= 1 (exists "DOpus5:Modules/diskinfo.module"))
(if (< (getversion "DOpus5:Modules/diskinfo.module") 56*65536)
; Old diskinfo.module detected. Rename catalogs so the right
; one is used, but leave both installed, so that an
; experienced user can change without running this script.
(
(delete "DOpus5:Catalogs/magyar/diskinfo-new.catalog")
(rename "DOpus5:Catalogs/magyar/diskinfo.catalog" "DOpus5:Catalogs/magyar/diskinfo-new.catalog")
(rename "DOpus5:Catalogs/magyar/diskinfo-old.catalog" "DOpus5:Catalogs/magyar/diskinfo.catalog")
)
)
)
;=============================================================================
; Install Hungarian versions of the default buttons
(copyfiles
(source "Buttons")
(dest "DOpus5:Buttons")
(pattern "#?")
)
;=============================================================================
; Make Hungarian lister menu the default
(if (askbool
(prompt "Szeretné, ha a listaablakok menüje magyarul jelenne meg?\n\n"
"(Az eredeti \"lister menu\" állományt \"lister menu_old\" néven megõrzöm.) "
)
(help "A listaablak-menü magyar változata tartalmazza az Opus "
"legfontosabb funkcióit, így azok könnyen elérhetõk."
)
)
(
(rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
(copyfiles
(source "DOpus5:Buttons/lister menu_magyar")
(dest "DOpus5:Buttons")
(newname "lister menu")
)
)
)
;=============================================================================
; Make Hungarian user menu the default
(if
(askbool
(prompt "Szeretné, ha a felhasználói menü magyarul jelenne meg?\n\n "
"(Az eredeti \"user menu\" állományt \"user menu_old\" néven megõrzöm.) "
)
(help "A felhasználói menü magyar változata az Opus egyes "
"kiegészítõ funkcióit tartalmazza menübe rendezve."
)
)
(
(rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
(copyfiles
(source "DOpus5:Buttons/user menu_magyar")
(dest "DOpus5:Buttons")
(newname "user menu")
)
)
)
(message "\n\nA magyar fordítás és kiegészítõk telepítése\n"
"elkészült. Sok sikert a használathoz!"
)
(exit)